www.gusucode.com > 茶都拼客网全功能版 8 > 茶都拼客网全功能版 8.8源码程序/teasdxmccom/茶都拼客网V8.8（全功能，无限制，完全开源）/admin/Ku_kind.asp
<!--#include file="../Ku_inc/Ku_sql.asp"-->
<!--#include file="../Ku_inc/Ku_config.asp"-->
<!--#include file="Ku_conn.asp"-->
<!--#include file="../Ku_inc/Ku_md5.asp"-->
<!--#include file="../Ku_inc/inc.asp"-->
<!-- #include file="Session.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>后台管理 >> 一级管理</title>
<link href="include/style.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
input{
height:22px;
border:1px solid #BEBEBE;
background-color:#FFF;
padding-top: 2px;
padding-right: 8px;
padding-bottom: 0pt;
padding-left: 3px;
}
-->
</style>
</head>
<div align="center">
<table border="0" width="95%" height="30" cellpadding="0" cellspacing="0" >
<tr >
<td height="30" style="border: 1px solid #D0D4D9" bgcolor="#EEEEEE" > <b>当前栏目：</b>> 频道设置</td>
</tr>
</table>
</div>
<% if Request("Action")<>"Modify2" then%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<form name="form1" method="post" action="?Action=Add">
<tr>
<td align="center">
添加：<input name="Names" type="text" id="Names" size="16" maxlength="30" style="BORDER-RIGHT: medium none; BORDER-TOP: medium none; BORDER-LEFT: medium none;BORDER-BOTTOM: rgb(0,0,0) 1px solid" >
连接网址：<input type="text" name="daohang" size="15" style="BORDER-RIGHT: medium none; BORDER-TOP: medium none; BORDER-LEFT: medium none; COLOR: rgb(255,0,0); BORDER-BOTTOM: rgb(0,0,0) 1px solid">
新窗弹出：<input name="blank" type="checkbox" id="blank" style="border:0px" value="1">
栏目说明：<input type="text" name="explain" size="20" style="BORDER-RIGHT: medium none; BORDER-TOP: medium none; BORDER-LEFT: medium none; COLOR: rgb(255,0,0); BORDER-BOTTOM: rgb(0,0,0) 1px solid">
<input type="submit" name="Submit" value="添 加">
</td>
</tr>
</form>
</table>
<% end if %>
<% if Request("Action")="Modify2" then%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
Id=Request("Id")
SqlModify = "Select * from Gu_kind where Id="&Id&" "
Set RsModify = Conn.Execute(SqlModify)
%>
<form name="Modify" id="Modify" method="post" action="Ku_kind.asp?Action=Modify">
<tr>
<td align="center">
栏目说明：<input type="text" name="explain" size="60" value="<%=RsModify("explain")%>" style="BORDER-RIGHT: medium none; BORDER-TOP: medium none; BORDER-LEFT: medium none; COLOR: rgb(255,0,0); BORDER-BOTTOM: rgb(0,0,0) 1px solid">
<input name="ID" type="hidden" id="ID3" value="<%=RsModify("ID")%>" size="1" >
<input type="submit" name="Submit" value="修 改">
</td>
</tr>
</form>
</table>
<%end if%>
<%
RsModify.close
set RsModify=nothing
%>
<div align="center">
<table border="0" width="95%" height="10" cellpadding="0" cellspacing="0" >
<tr >
<td><hr></td>
</tr>
</table>
</div>
<p align="center">
查看栏目：<a href="Ku_kind.asp">全部栏目</a> |
<a href="Ku_kind.asp?action=Hdaohang">头部栏目</a> |
<a href="Ku_kind.asp?action=Ldaohang">左侧栏目</a> |
<a href="Ku_kind.asp?action=Fdaohang">底部栏目</a> |
<a href="Ku_kind.asp?action=Hidaohang">隐藏栏目</a></p>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="95%">
<tr>
<td height="36" width="15%" align="center"><b> 栏 目 标 题</b></td>
<td align="center" width="20%"><b>调 用 地 址</b></td>
<td align="center" width="5%"><b>弹出</b></td>
<td align="center" width="5%"><b>隐藏</b></td>
<td align="center" width="5%"><b>头部</b></td>
<td align="center" width="5%"><b>左侧</b></td>
<td align="center" width="5%"><b>底部</b></td>
<td align="center" width="20%"><b>管 理 操 作</b></td>
<td align="center" width="20%"><b>栏目说明</b></td>
</tr>
</table>
</div>
<!-- 以下为总的栏目 -->
<%if request("action")="" then%>
<%
SqlSort = "Select * from Gu_kind where B_id=0 or B_id=-1 order by ID"
Set RsSort = Conn.Execute(SqlSort)
if RsSort.eof and RsSort.bof then
Response.write("<div align=center>还没有栏目.......</div>")
response.end
else
do while not RsSort.eof
%>
<div align="center">
<table width="95%" border="0" cellpadding="0" cellspacing="0" height="30">
<form name="Setting" method="post" action="?Action=Setting">
<tr onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#F7F8F8'">
<td width="15%" align="left"><img src="ku_img/kind.gif">
<% if RsSort("daohang")<>"" then %>
<input name="Names" type="text" value="<%=RsSort("Artname")%>" size="10" maxlength="20" style="BORDER-RIGHT: medium none; BORDER-TOP: medium none; BORDER-LEFT: medium none; COLOR: rgb(255,0,0); BORDER-BOTTOM: rgb(0,0,0) 1px solid" >
<% end if %>
</td>
<td width="20%" align="left">
<input name="ID" type="hidden" id="ID4" value="<%=RsSort("ID")%>">
<% if RsSort("daohang")<>"" then %>
<input type="text" name="daohang" size="20" value="<%=RsSort("daohang")%>" style="BORDER-RIGHT: medium none; BORDER-TOP: medium none; BORDER-LEFT: medium none; COLOR: rgb(255,0,0); BORDER-BOTTOM: rgb(0,0,0) 1px solid">
<% end if %>
</td>
<td width="5%" align="center">
<p align="center">
<input name="blank" type="checkbox" id="blank" style="border:0px" value="1" <% if RsSort("blank")=1 then%>checked<%end if%>>
</td>
<td width="5%" align="center">
<input name="hide" type="checkbox" id="hide" style="border:0px" value="1" <% if RsSort("hide")=1 then%>checked<%end if%>>
</td>
<td width="5%" align="center">
<input name="Hdaohang" type="checkbox" id="Hdaohang" style="border:0px" value="1" <% if RsSort("Hdaohang")=1 then%>checked<%end if%>>
</td>
<td width="5%" align="center">
<input name="Ldaohang" type="checkbox" id="Ldaohang" style="border:0px" value="1" <% if RsSort("Ldaohang")=1 then%>checked<%end if%>>
</td>
<td width="5%" align="center">
<input name="Fdaohang" type="checkbox" id="Fdaohang" style="border:0px" value="1" <% if RsSort("Fdaohang")=1 then%>checked<%end if%>>
</td>
<td width="20%" align="left">
<p align="center"> <input name="Submit2" type="submit" id="Submit2" value="设定">
<% if RsSort("daohang")<>"" then %>
<input type="button" value="删除" onClick=location.href='?action=B_Del&id=<%=RsSort("ID")%>' name=del>
<% end if %>
</td>
<td width="20%" align="left">
<p align="center">
<% if RsSort("explain")="" then %>
<a href="Ku_kind.asp?action=Modify2&id=<%=RsSort("ID")%>"><font color="#800000">添加栏目说明</font></a>
<% else %>
栏目说明<a href="Ku_kind.asp?action=Modify2&id=<%=RsSort("ID")%>">(修改)</a>：<img border="0" src="ku_img/brep.gif" alt="<%=RsSort("explain")%>" width="15" height="14">
<% end if %>
</td> </div>
</tr>
</form>
</table>
</div>
<%
RsSort.movenext
loop
end if
RsSort.close
set RsSort=nothing
%>
<%end if %>
<!-- 以下为头部栏目 -->
<%if request("action")="Hdaohang" then%>
<%
SqlSort = "Select * from Gu_kind where ((B_id=0 or B_id=-1) and Hdaohang=1) and hide=0 order by Order_1"
Set RsSort = Conn.Execute(SqlSort)
if RsSort.eof and RsSort.bof then
Response.write("<div align=center>还没有栏目.......</div>")
response.end
else
do while not RsSort.eof
%>
<div align="center">
<table width="95%" border="0" cellpadding="0" cellspacing="0" height="30">
<form name="Setting" method="post" action="?Action=Setting_H">
<tr onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#F7F8F8'">
<td width="170" align="left"> <img src="ku_img/kind.gif">
<% if RsSort("daohang")<>"" then %>
<input name="Names" type="text" value="<%=RsSort("Artname")%>" size="12" maxlength="25" style="BORDER-RIGHT: medium none; BORDER-TOP: medium none; BORDER-LEFT: medium none; COLOR: rgb(255,0,0); BORDER-BOTTOM: rgb(0,0,0) 1px solid" >
<% end if %>
</td>
<td width="200" align="left">
<input name="ID" type="hidden" id="ID4" value="<%=RsSort("ID")%>">
<% if RsSort("daohang")<>"" then %>
<input type="text" name="daohang" size="25" value="<%=RsSort("daohang")%>" style="BORDER-RIGHT: medium none; BORDER-TOP: medium none; BORDER-LEFT: medium none; COLOR: rgb(255,0,0); BORDER-BOTTOM: rgb(0,0,0) 1px solid">
<% end if %>
</td>
<td width="50" align="center">
<input name="blank" type="checkbox" id="blank" style="border:0px" value="1" <% if RsSort("blank")=1 then%>checked<%end if%>>
</td>
<td width="50" align="center">
<input name="hide" type="checkbox" id="hide" style="border:0px" value="1" <% if RsSort("hide")=1 then%>checked<%end if%>>
</td>
<td width="50" align="center">
<input name="Hdaohang" type="checkbox" id="Hdaohang" style="border:0px" value="1" <% if RsSort("Hdaohang")=1 then%>checked<%end if%>>
</td>
<td width="50" align="center">
<input name="Ldaohang" type="checkbox" id="Ldaohang" style="border:0px" value="1" <% if RsSort("Ldaohang")=1 then%>checked<%end if%>>
</td>
<td width="50" align="center">
<input name="Fdaohang" type="checkbox" id="Fdaohang" style="border:0px" value="1" <% if RsSort("Fdaohang")=1 then%>checked<%end if%>>
</td>
<td width="250" align="left">
<p align="center"> 排列：<input name="Order_1" type="text" id="Order_1" value="<%=RsSort("Order_1")%>" size="2" maxlength="5" style="BORDER-RIGHT: medium none; BORDER-TOP: medium none; BORDER-LEFT: medium none; COLOR: rgb(255,0,0); BORDER-BOTTOM: rgb(0,0,0) 1px solid" >
<input name="Submit2" type="submit" id="Submit2" value="设定">
<% if RsSort("daohang")<>"" then %>
<input type="button" value="删除" onClick=location.href='?action=B_Del_H&id=<%=RsSort("ID")%>' name=del>
<% end if %>
</td>
<td align="left">
<p align="center">
<% if RsSort("explain")="" then %>
<a href="Ku_kind.asp?action=Modify2&id=<%=RsSort("ID")%>"><font color="#800000">添加栏目说明</font></a>
<% else %>
栏目说明<a href="Ku_kind.asp?action=Modify2&id=<%=RsSort("ID")%>">(修改)</a>：<img border="0" src="ku_img/brep.gif" alt="<%=RsSort("explain")%>" width="15" height="14">
<% end if %>
</td> </div>
</tr>
</form>
</table>
</div>
<%
RsSort.movenext
loop
end if
RsSort.close
set RsSort=nothing
%>
<% end if %>
<!-- 以下为左侧栏目设置 -->
<%if request("action")="Ldaohang" then%>
<%
SqlSort = "Select * from Gu_kind where ((B_id=0 or B_id=-1) and Ldaohang=1) and hide=0 order by Order_2"
Set RsSort = Conn.Execute(SqlSort)
if RsSort.eof and RsSort.bof then
Response.write("<div align=center>还没有栏目.......</div>")
response.end
else
do while not RsSort.eof
%>
<div align="center">
<table width="95%" border="0" cellpadding="0" cellspacing="0" height="30">
<form name="Setting" method="post" action="?Action=Setting_L">
<tr onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#F7F8F8'">
<td width="170" align="left"> <img src="ku_img/kind.gif">
<% if RsSort("daohang")<>"" then %>
<input name="Names" type="text" value="<%=RsSort("Artname")%>" size="12" maxlength="25" style="BORDER-RIGHT: medium none; BORDER-TOP: medium none; BORDER-LEFT: medium none; COLOR: rgb(255,0,0); BORDER-BOTTOM: rgb(0,0,0) 1px solid" >
<% end if %>
</td>
<td width="200" align="left">
<input name="ID" type="hidden" id="ID4" value="<%=RsSort("ID")%>"><% if RsSort("daohang")<>"" then %><input type="text" name="daohang" size="25" value="<%=RsSort("daohang")%>" style="BORDER-RIGHT: medium none; BORDER-TOP: medium none; BORDER-LEFT: medium none; COLOR: rgb(255,0,0); BORDER-BOTTOM: rgb(0,0,0) 1px solid">
<% end if %>
</td>
<td width="50" align="center">
<input name="blank" type="checkbox" id="blank" style="border:0px" value="1" <% if RsSort("blank")=1 then%>checked<%end if%>>
</td>
<td width="50" align="center">
<input name="hide" type="checkbox" id="hide" style="border:0px" value="1" <% if RsSort("hide")=1 then%>checked<%end if%>>
</td>
<td width="50" align="center">
<input name="Hdaohang" type="checkbox" id="Hdaohang" style="border:0px" value="1" <% if RsSort("Hdaohang")=1 then%>checked<%end if%>>
</td>
<td width="50" align="center">
<input name="Ldaohang" type="checkbox" id="Ldaohang" style="border:0px" value="1" <% if RsSort("Ldaohang")=1 then%>checked<%end if%>>
</td>
<td width="50" align="center">
<input name="Fdaohang" type="checkbox" id="Fdaohang" style="border:0px" value="1" <% if RsSort("Fdaohang")=1 then%>checked<%end if%>>
</td>
<td width="250" align="left">
<p align="center"> 排列：<input name="Order_2" type="text" id="Order_2" value="<%=RsSort("Order_2")%>" size="2" maxlength="5" style="BORDER-RIGHT: medium none; BORDER-TOP: medium none; BORDER-LEFT: medium none; COLOR: rgb(255,0,0); BORDER-BOTTOM: rgb(0,0,0) 1px solid" >
<input name="Submit2" type="submit" id="Submit2" value="设定">
<% if RsSort("daohang")<>"" then %>
<input type="button" value="删除" onClick=location.href='?action=B_Del_L&id=<%=RsSort("ID")%>' name=del>
<% end if %>
</td>
<td align="left">
<p align="center">
<% if RsSort("explain")="" then %>
<a href="Ku_kind.asp?action=Modify2&id=<%=RsSort("ID")%>"><font color="#800000">添加栏目说明</font></a>
<% else %>
栏目说明<a href="Ku_kind.asp?action=Modify2&id=<%=RsSort("ID")%>">(修改)</a>：<img border="0" src="ku_img/brep.gif" alt="<%=RsSort("explain")%>" width="15" height="14">
<% end if %>
</td> </div>
</tr>
</form>
</table>
</div>
<%
RsSort.movenext
loop
end if
RsSort.close
set RsSort=nothing
%>
<% end if %>
<!-- 以下为底部栏目设置 -->
<%if request("action")="Fdaohang" then%>
<%
SqlSort = "Select * from Gu_kind where ((B_id=0 or B_id=-1) and Fdaohang=1) and hide=0 order by Order_3"
Set RsSort = Conn.Execute(SqlSort)
if RsSort.eof and RsSort.bof then
Response.write("<div align=center>还没有栏目.......</div>")
response.end
else
do while not RsSort.eof
%>
<div align="center">
<table width="95%" border="0" cellpadding="0" cellspacing="0" height="30">
<form name="Setting" method="post" action="?Action=Setting_F">
<tr onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#F7F8F8'">
<td width="170" align="left"> <img src="ku_img/kind.gif">
<% if RsSort("daohang")<>"" then %>
<input name="Names" type="text" value="<%=RsSort("Artname")%>" size="12" maxlength="25" style="BORDER-RIGHT: medium none; BORDER-TOP: medium none; BORDER-LEFT: medium none; COLOR: rgb(255,0,0); BORDER-BOTTOM: rgb(0,0,0) 1px solid" >
<% end if %>
</td>
<td width="200" align="left">
<input name="ID" type="hidden" id="ID4" value="<%=RsSort("ID")%>">
<% if RsSort("daohang")<>"" then %>
<input type="text" name="daohang" size="25" value="<%=RsSort("daohang")%>" style="BORDER-RIGHT: medium none; BORDER-TOP: medium none; BORDER-LEFT: medium none; COLOR: rgb(255,0,0); BORDER-BOTTOM: rgb(0,0,0) 1px solid">
<% end if %>
</td>
<td width="50" align="center">
<input name="blank" type="checkbox" id="blank" style="border:0px" value="1" <% if RsSort("blank")=1 then%>checked<%end if%>>
</td>
<td width="50" align="center">
<input name="hide" type="checkbox" id="hide" style="border:0px" value="1" <% if RsSort("hide")=1 then%>checked<%end if%>>
</td>
<td width="50" align="center">
<input name="Hdaohang" type="checkbox" id="Hdaohang" style="border:0px" value="1" <% if RsSort("Hdaohang")=1 then%>checked<%end if%>>
</td>
<td width="50" align="center">
<input name="Ldaohang" type="checkbox" id="Ldaohang" style="border:0px" value="1" <% if RsSort("Ldaohang")=1 then%>checked<%end if%>>
</td>
<td width="50" align="center">
<input name="Fdaohang" type="checkbox" id="Fdaohang" style="border:0px" value="1" <% if RsSort("Fdaohang")=1 then%>checked<%end if%>>
</td>
<td width="250" align="left">
<p align="center"> 排列：<input name="Order_3" type="text" id="Order_3" value="<%=RsSort("Order_3")%>" size="2" maxlength="5" style="BORDER-RIGHT: medium none; BORDER-TOP: medium none; BORDER-LEFT: medium none; COLOR: rgb(255,0,0); BORDER-BOTTOM: rgb(0,0,0) 1px solid" >
<input name="Submit2" type="submit" id="Submit2" value="设定">
<% if RsSort("daohang")<>"" then %>
<input type="button" value="删除" onClick=location.href='?action=B_Del_F&id=<%=RsSort("ID")%>' name=del>
<% end if %>
</td>
<td align="left">
<p align="center">
<% if RsSort("explain")="" then %>
<a href="Ku_kind.asp?action=Modify2&id=<%=RsSort("ID")%>"><font color="#800000">添加栏目说明</font></a>
<% else %>
栏目说明<a href="Ku_kind.asp?action=Modify2&id=<%=RsSort("ID")%>">(修改)</a>：<img border="0" src="ku_img/brep.gif" alt="<%=RsSort("explain")%>" width="15" height="14">
<% end if %>
</td> </div>
</tr>
</form>
</table>
</div>
<%
RsSort.movenext
loop
end if
RsSort.close
set RsSort=nothing
%>
<% end if %>
<!-- 以下为隐藏栏目 -->
<%if request("action")="Hidaohang" then%>
<%
SqlSort = "Select * from Gu_kind where hide=1 order by ID"
Set RsSort = Conn.Execute(SqlSort)
if RsSort.eof and RsSort.bof then
Response.write("<div align=center>还没有栏目.......</div>")
response.end
else
do while not RsSort.eof
%>
<div align="center">
<table width="95%" border="0" cellpadding="0" cellspacing="0" height="30">
<form name="Setting" method="post" action="?Action=Setting_Hi">
<tr onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#F7F8F8'">
<td width="170" align="left"> <img src="ku_img/kind.gif">
<% if RsSort("daohang")<>"" then %>
<input name="Names" type="text" value="<%=RsSort("Artname")%>" size="12" maxlength="25" style="BORDER-RIGHT: medium none; BORDER-TOP: medium none; BORDER-LEFT: medium none; COLOR: rgb(255,0,0); BORDER-BOTTOM: rgb(0,0,0) 1px solid" >
<% end if %>
</td>
<td width="200" align="left">
<input name="ID" type="hidden" id="ID4" value="<%=RsSort("ID")%>">
<% if RsSort("daohang")<>"" then %><input type="text" name="daohang" size="25" value="<%=RsSort("daohang")%>" style="BORDER-RIGHT: medium none; BORDER-TOP: medium none; BORDER-LEFT: medium none; COLOR: rgb(255,0,0); BORDER-BOTTOM: rgb(0,0,0) 1px solid">
<% end if %>
</td>
<td width="50" align="center">
<input name="blank" type="checkbox" id="blank" style="border:0px" value="1" <% if RsSort("blank")=1 then%>checked<%end if%>>
</td>
<td width="50" align="center">
<input name="hide" type="checkbox" id="hide" style="border:0px" value="1" <% if RsSort("hide")=1 then%>checked<%end if%>>
</td>
<td width="50" align="center">
<input name="Hdaohang" type="checkbox" id="Hdaohang" style="border:0px" value="1" <% if RsSort("Hdaohang")=1 then%>checked<%end if%>>
</td>
<td width="50" align="center">
<input name="Ldaohang" type="checkbox" id="Ldaohang" style="border:0px" value="1" <% if RsSort("Ldaohang")=1 then%>checked<%end if%>>
</td>
<td width="50" align="center">
<input name="Fdaohang" type="checkbox" id="Fdaohang" style="border:0px" value="1" <% if RsSort("Fdaohang")=1 then%>checked<%end if%>>
</td>
<td width="250" align="left">
<p align="center"> <input name="Submit2" type="submit" id="Submit2" value="设定">
<% if RsSort("daohang")<>"" then %>
<input type="button" value="删除" onClick=location.href='?action=B_Del_Hi&id=<%=RsSort("ID")%>' name=del>
<% end if %>
</td>
<td align="left">
<p align="center">
<% if RsSort("explain")="" then %>
<a href="Ku_kind.asp?action=Modify2&id=<%=RsSort("ID")%>"><font color="#800000">添加栏目说明</font></a>
<% else %>
栏目说明<a href="Ku_kind.asp?action=Modify2&id=<%=RsSort("ID")%>">(修改)</a>：<img border="0" src="ku_img/brep.gif" alt="<%=RsSort("explain")%>" width="15" height="14">
<% end if %>
</td> </div>
</tr>
</form>
</table>
</div>
<%
RsSort.movenext
loop
end if
RsSort.close
set RsSort=nothing
%>
<% end if %>
<!-- 以下为总的栏目设置 -->
<%
'删除大类
if Request.QueryString("Action")="B_Del" then
ID=request("ID")
set rs=server.createobject("adodb.recordset")
DelBig="delete from Gu_kind where Id="& ID
DelAll="delete from Gu_kind where B_Id="& ID
rs.open DelBig,conn,3,3
rs.open DelAll,conn,3,3
set rs=nothing
conn.close
response.redirect "Ku_kind.asp"
end if
%>
<%
'分类添加
if Request.QueryString("Action")="Add" then
If Request("Names")="" Then
response.write "SORRY <br>"
response.write "请输入分类的名称!!<a href=""javascript:history.go(-1)"">返回重输</a>"
response.end
end if
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from Gu_kind "
rs.open sql,conn,1,3
rs.addnew
rs("AddTime")=now()
rs("Artname")=Request("Names")
'rs("S_Order")=Request("Order")
'rs("Order_1")=Request("Order_1")
'rs("Order_2")=Request("Order_2")
'rs("Order_3")=Request("Order_3")
rs("daohang")=Request("daohang")
rs("explain")=Request("explain")
if Request("blank")<>"" then
rs("blank")=Request("blank")
else
rs("blank")=0
end if
if Request("hide")<>"" then
rs("hide")=Request("hide")
else
rs("hide")=0
end if
if Request("Hdaohang")<>"" then
rs("Hdaohang")=Request("Hdaohang")
else
rs("Hdaohang")=0
end if
if Request("Ldaohang")<>"" then
rs("Ldaohang")=Request("Ldaohang")
else
rs("Ldaohang")=0
end if
if Request("Fdaohang")<>"" then
rs("Fdaohang")=Request("Fdaohang")
else
rs("Fdaohang")=0
end if
rs.update
rs.close
response.redirect "Ku_kind.asp"
end if
%>
<%
'栏目说明修改
if Request.QueryString("Action")="Modify" then
ID=Request("ID")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from Gu_kind where ID="&ID&""
rs.open sql,conn,1,3
rs("explain")=Request("explain")
rs.update
rs.close
response.redirect "Ku_kind.asp"
end if
%>
<%
'一般修改
if Request.QueryString("Action")="Setting" then
If Request("Names")="" Then
response.write "SORRY <br>"
response.write "请输入分类的名称!!<a href=""javascript:history.go(-1)"">返回重输</a>"
response.end
end if
ID=Request("ID")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from Gu_kind where ID="&ID&""
rs.open sql,conn,1,3
rs("addtime")=now()
rs("Artname")=Request("Names")
rs("S_Order")=Request("Order")
rs("Order_1")=Request("Order_1")
rs("Order_2")=Request("Order_2")
rs("Order_3")=Request("Order_3")
rs("daohang")=Request("daohang")
'rs("explain")=Request("explain")
if Request("blank")<>"" then
rs("blank")=Request("blank")
else
rs("blank")=0
end if
if Request("hide")<>"" then
rs("hide")=Request("hide")
else
rs("hide")=0
end if
if Request("Hdaohang")<>"" then
rs("Hdaohang")=Request("Hdaohang")
else
rs("Hdaohang")=0
end if
if Request("Ldaohang")<>"" then
rs("Ldaohang")=Request("Ldaohang")
else
rs("Ldaohang")=0
end if
if Request("Fdaohang")<>"" then
rs("Fdaohang")=Request("Fdaohang")
else
rs("Fdaohang")=0
end if
rs.update
rs.close
response.redirect "Ku_kind.asp"
end if
%>
<!-- 以下为头部栏目设置-->
<%
'删除大类
if Request.QueryString("Action")="B_Del_H" then
ID=request("ID")
set rs=server.createobject("adodb.recordset")
DelBig="delete from Gu_kind where Id="& ID
DelAll="delete from Gu_kind where B_Id="& ID
rs.open DelBig,conn,3,3
rs.open DelAll,conn,3,3
set rs=nothing
conn.close
response.redirect "Ku_kind.asp?action=Hdaohang"
end if
%>
<%
'一般修改
if Request.QueryString("Action")="Setting_H" then
If Request("Names")="" Then
response.write "SORRY <br>"
response.write "请输入分类的名称!!<a href=""javascript:history.go(-1)"">返回重输</a>"
response.end
end if
ID=Request("ID")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from Gu_kind where ID="&ID&""
rs.open sql,conn,1,3
rs("Artname")=Request("Names")
'rs("S_Order")=Request("Order")
rs("Order_1")=Request("Order_1")
'rs("Order_2")=Request("Order_2")
'rs("Order_3")=Request("Order_3")
rs("daohang")=Request("daohang")
'rs("explain")=Request("explain")
if Request("blank")<>"" then
rs("blank")=Request("blank")
else
rs("blank")=0
end if
if Request("hide")<>"" then
rs("hide")=Request("hide")
else
rs("hide")=0
end if
if Request("Hdaohang")<>"" then
rs("Hdaohang")=Request("Hdaohang")
else
rs("Hdaohang")=0
end if
if Request("Ldaohang")<>"" then
rs("Ldaohang")=Request("Ldaohang")
else
rs("Ldaohang")=0
end if
if Request("Fdaohang")<>"" then
rs("Fdaohang")=Request("Fdaohang")
else
rs("Fdaohang")=0
end if
rs.update
rs.close
response.redirect "Ku_kind.asp?action=Hdaohang"
end if
%>
<!-- 以下为左侧栏目设置 -->
<%
'删除大类
if Request.QueryString("Action")="B_Del_L" then
ID=request("ID")
set rs=server.createobject("adodb.recordset")
DelBig="delete from Gu_kind where Id="& ID
DelAll="delete from Gu_kind where B_Id="& ID
rs.open DelBig,conn,3,3
rs.open DelAll,conn,3,3
set rs=nothing
conn.close
response.redirect "Ku_kind.asp?action=Ldaohang"
end if
%>
<%
'一般修改
if Request.QueryString("Action")="Setting_L" then
If Request("Names")="" Then
response.write "SORRY <br>"
response.write "请输入分类的名称!!<a href=""javascript:history.go(-1)"">返回重输</a>"
response.end
end if
ID=Request("ID")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from Gu_kind where ID="&ID&""
rs.open sql,conn,1,3
rs("Artname")=Request("Names")
'rs("S_Order")=Request("Order")
'rs("Order_1")=Request("Order_1")
rs("Order_2")=Request("Order_2")
'rs("Order_3")=Request("Order_3")
rs("daohang")=Request("daohang")
'rs("explain")=Request("explain")
if Request("blank")<>"" then
rs("blank")=Request("blank")
else
rs("blank")=0
end if
if Request("hide")<>"" then
rs("hide")=Request("hide")
else
rs("hide")=0
end if
if Request("Hdaohang")<>"" then
rs("Hdaohang")=Request("Hdaohang")
else
rs("Hdaohang")=0
end if
if Request("Ldaohang")<>"" then
rs("Ldaohang")=Request("Ldaohang")
else
rs("Ldaohang")=0
end if
if Request("Fdaohang")<>"" then
rs("Fdaohang")=Request("Fdaohang")
else
rs("Fdaohang")=0
end if
rs.update
rs.close
response.redirect "Ku_kind.asp?action=Ldaohang"
end if
%>
<!-- 以下为底部栏目设置 -->
<%
'删除大类
if Request.QueryString("Action")="B_Del_F" then
ID=request("ID")
set rs=server.createobject("adodb.recordset")
DelBig="delete from Gu_kind where Id="& ID
DelAll="delete from Gu_kind where B_Id="& ID
rs.open DelBig,conn,3,3
rs.open DelAll,conn,3,3
set rs=nothing
conn.close
response.redirect "Ku_kind.asp?action=Fdaohang"
end if
%>
<%
'一般修改
if Request.QueryString("Action")="Setting_F" then
If Request("Names")="" Then
response.write "SORRY <br>"
response.write "请输入分类的名称!!<a href=""javascript:history.go(-1)"">返回重输</a>"
response.end
end if
ID=Request("ID")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from Gu_kind where ID="&ID&""
rs.open sql,conn,1,3
rs("Artname")=Request("Names")
'rs("S_Order")=Request("Order")
'rs("Order_1")=Request("Order_1")
'rs("Order_2")=Request("Order_2")
rs("Order_3")=Request("Order_3")
rs("daohang")=Request("daohang")
'rs("explain")=Request("explain")
if Request("blank")<>"" then
rs("blank")=Request("blank")
else
rs("blank")=0
end if
if Request("hide")<>"" then
rs("hide")=Request("hide")
else
rs("hide")=0
end if
if Request("Hdaohang")<>"" then
rs("Hdaohang")=Request("Hdaohang")
else
rs("Hdaohang")=0
end if
if Request("Ldaohang")<>"" then
rs("Ldaohang")=Request("Ldaohang")
else
rs("Ldaohang")=0
end if
if Request("Fdaohang")<>"" then
rs("Fdaohang")=Request("Fdaohang")
else
rs("Fdaohang")=0
end if
rs.update
rs.close
response.redirect "Ku_kind.asp?action=Fdaohang"
end if
%>
<!-- 以下为隐藏栏目设置 -->
<%
'删除大类
if Request.QueryString("Action")="B_Del_Hi" then
ID=request("ID")
set rs=server.createobject("adodb.recordset")
DelBig="delete from Gu_kind where Id="& ID
DelAll="delete from Gu_kind where B_Id="& ID
rs.open DelBig,conn,3,3
rs.open DelAll,conn,3,3
set rs=nothing
conn.close
response.redirect "Ku_kind.asp?action=Hidaohang"
end if
%>
<%
'一般修改
if Request.QueryString("Action")="Setting_Hi" then
If Request("Names")="" Then
response.write "SORRY <br>"
response.write "请输入分类的名称!!<a href=""javascript:history.go(-1)"">返回重输</a>"
response.end
end if
ID=Request("ID")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from Gu_kind where ID="&ID&""
rs.open sql,conn,1,3
rs("Artname")=Request("Names")
'rs("S_Order")=Request("Order")
'rs("Order_1")=Request("Order_1")
'rs("Order_2")=Request("Order_2")
'rs("Order_3")=Request("Order_3")
rs("daohang")=Request("daohang")
'rs("explain")=Request("explain")
if Request("blank")<>"" then
rs("blank")=Request("blank")
else
rs("blank")=0
end if
if Request("hide")<>"" then
rs("hide")=Request("hide")
else
rs("hide")=0
end if
if Request("Hdaohang")<>"" then
rs("Hdaohang")=Request("Hdaohang")
else
rs("Hdaohang")=0
end if
if Request("Ldaohang")<>"" then
rs("Ldaohang")=Request("Ldaohang")
else
rs("Ldaohang")=0
end if
if Request("Fdaohang")<>"" then
rs("Fdaohang")=Request("Fdaohang")
else
rs("Fdaohang")=0
end if
rs.update
rs.close
response.redirect "Ku_kind.asp?action=Hidaohang"
end if
%>
<div align="center">
<table border="0" width="95%" height="30" cellpadding="0" cellspacing="0" >
<tr >
<td><hr></td>
</tr>
</table>
</div>
<p align="center"><!-- #include file="Ku_bottom.asp"--></p>